home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / programming / triton / developer / amigaoberon / triton.def < prev    next >
Encoding:
Text File  |  1995-08-25  |  7.4 KB  |  276 lines
  1. DEFINITION Triton;
  2.  
  3. IMPORT
  4.   E := Exec,
  5.   S := SYSTEM,
  6.   U := Utility,
  7.   W := Workbench,
  8.   I := Intuition,
  9.   GT := GadTools,
  10.   G := Graphics,
  11.   IE := InputEvent;
  12.  
  13. CONST
  14.   tritonName = "triton.library";
  15.   triton10Version = 1;
  16.   triton11Version = 2;
  17.   triton12Version = 3;
  18.   triton13Version = 4;
  19.  
  20. TYPE
  21.   MessagePtr = UNTRACED POINTER TO Message;
  22.   AppPtr = UNTRACED POINTER TO App;
  23.   DimensionsPtr = UNTRACED POINTER TO Dimensions;
  24.   ProjectPtr = UNTRACED POINTER TO Project;
  25.   DisplayObjectPtr = UNTRACED POINTER TO STRUCT 
  26.   END;
  27.   Message = STRUCT 
  28.     project : ProjectPtr;
  29.     id : E.ULONG;
  30.     class : E.ULONG;
  31.     data : E.ULONG;
  32.     code : E.ULONG;
  33.     qualifier : E.ULONG;
  34.     seconds : E.ULONG;
  35.     micros : E.ULONG;
  36.     app : AppPtr;
  37.   END;
  38.   App = STRUCT 
  39.     bitMask : E.LONGBITS;
  40.     name : E.STRPTR;
  41.     longName : E.STRPTR;
  42.     info : E.STRPTR;
  43.     version : E.STRPTR;
  44.     release : E.STRPTR;
  45.     date : E.STRPTR;
  46.   END;
  47.   Dimensions = STRUCT 
  48.     left : E.UWORD;
  49.     top : E.UWORD;
  50.     width : E.UWORD;
  51.     height : E.UWORD;
  52.     left2 : E.UWORD;
  53.     top2 : E.UWORD;
  54.     width2 : E.UWORD;
  55.     height2 : E.UWORD;
  56.     zoomed : E.BOOL;
  57.     reserved : ARRAY 3 OF E.UWORD;
  58.   END;
  59.   Project = STRUCT 
  60.   END;
  61.  
  62. CONST
  63.   msCloseWindow = 1;
  64.   msError = 2;
  65.   msNewValue = 3;
  66.   msAction = 4;
  67.   msIconDropped = 5;
  68.   msKeyPressed = 6;
  69.   msHelp = 7;
  70.   msDiskInserted = 8;
  71.   msDiskRemoved = 9;
  72.   erOk = 0;
  73.   erAllocMem = 1;
  74.   erOpenWindow = 2;
  75.   erWindowTooBig = 3;
  76.   erDrawInfo = 4;
  77.   erOpenFont = 5;
  78.   erCreateMsgPort = 6;
  79.   erInstallObject = 7;
  80.   erCreateClass = 8;
  81.   erNoLockPubScreen = 9;
  82.   erInvalid = 10;
  83.   erNoMem = 11;
  84.   erOtherCreate = 12;
  85.   erLayout = 13;
  86.   erCreateContext = 14;
  87.   omActivate = 23;
  88.   wiTitle = (U.user + 1);
  89.   wiFlags = (U.user + 2);
  90.   wiUnderscore = (U.user + 3);
  91.   wiPosition = (U.user + 4);
  92.   wiCustomScreen = (U.user + 5);
  93.   wiPubScreen = (U.user + 6);
  94.   wiPubScreenName = (U.user + 7);
  95.   wiPropFontAttr = (U.user + 8);
  96.   wiFixedWidthFontAttr = (U.user + 9);
  97.   wiBackfill = (U.user + 10);
  98.   wiID = (U.user + 11);
  99.   wiDimensions = (U.user + 12);
  100.   wiScreenTitle = (U.user + 13);
  101.   wiQuickHelp = (U.user + 14);
  102.   mnTitle = (U.user + 101);
  103.   mnItem = (U.user + 102);
  104.   mnSub = (U.user + 103);
  105.   mnFlags = (U.user + 104);
  106.   atID = (U.user + 150);
  107.   atFlags = (U.user + 151);
  108.   atValue = (U.user + 152);
  109.   atText = (U.user + 153);
  110.   atDisabled = (U.user + 154);
  111.   atBackfill = (U.user + 155);
  112.   atMinWidth = (U.user + 156);
  113.   atMinHeight = (U.user + 157);
  114.   user = (U.user + 800);
  115.   wfBackDrop = 000000001H;
  116.   wfNoDragBar = 000000002H;
  117.   wfNoDepthGadget = 000000004H;
  118.   wfNoCloseGadget = 000000008H;
  119.   wfNoActivate = 000000010H;
  120.   wfNoEscClose = 000000020H;
  121.   wfNoPScrFallback = 000000040H;
  122.   wfNoZipGadget = 000000080H;
  123.   wfZipCenterTop = 000000100H;
  124.   wfNoMinTextWidth = 000000200H;
  125.   wfNoSizeGadget = 000000400H;
  126.   wfNoFontFallback = 000000800H;
  127.   wfNoDelZip = 000001000H;
  128.   wfSimpleRefresh = 000002000H;
  129.   wfZipToCurrentPos = 000004000H;
  130.   wfAppWindow = 000008000H;
  131.   wfActivateStrGad = 000010000H;
  132.   wfHelp = 000020000H;
  133.   wfSystemAction = 000040000H;
  134.   mfCheckIt = 000000001H;
  135.   mfChecked = 000000002H;
  136.   mfDisabled = 000000004H;
  137.   wpDefault = 0;
  138.   wpBelowTitlebar = 1;
  139.   wpCenterTop = 1025;
  140.   wpTopLeftScreen = 1026;
  141.   wpCenterScreen = 1027;
  142.   wpCenterDisplay = 1028;
  143.   wpMousePointer = 1029;
  144.   wpAboveCoords = 2049;
  145.   wpBelowCoords = 2050;
  146.   bfWindowBack = 0;
  147.   bfRequesterBack = 1;
  148.   bfNone = 2;
  149.   bfShine = 3;
  150.   bfShineShadow = 4;
  151.   bfShineFill = 5;
  152.   bfShineBackground = 6;
  153.   bfShadow = 7;
  154.   bfShadowFill = 8;
  155.   bfShadowBackground = 9;
  156.   bfFill = 10;
  157.   bfFillBackground = 11;
  158.   siUSButtonBack = 10002;
  159.   siSButtonBack = 10003;
  160.   ofRaised = 000000001H;
  161.   ofHoriz = 000000002H;
  162.   ofVert = 000000004H;
  163.   ofRightAlign = 000000008H;
  164.   txNoUnderscore = 000000100H;
  165.   txHighlight = 000000200H;
  166.   tx3D = 000000400H;
  167.   txBold = 000000800H;
  168.   txTitle = 000001000H;
  169.   menuBarLabel = -1;
  170.   caName = (U.user + 1);
  171.   caLongName = (U.user + 2);
  172.   caInfo = (U.user + 3);
  173.   caVersion = (U.user + 4);
  174.   caRelease = (U.user + 5);
  175.   caDate = (U.user + 6);
  176.   ezReqPos = (U.user + 1);
  177.   ezLockProject = (U.user + 2);
  178.   ezReturn = (U.user + 3);
  179.   ezTitle = (U.user + 4);
  180.   ezActivate = (U.user + 5);
  181.   obDisplayObject = (tgOBJ + 3CH);
  182.   doQuickHelpString = (tgOAT + 1E3H);
  183.   obButton = (U.user + 305);
  184.   obCheckBox = (U.user + 303);
  185.   obCycle = (U.user + 310);
  186.   obDropBox = (U.user + 312);
  187.   obScroller = (U.user + 309);
  188.   obFrameBox = (U.user + 306);
  189.   grHoriz = (U.user + 201);
  190.   grVert = (U.user + 202);
  191.   grEnd = (U.user + 203);
  192.   obLine = (U.user + 301);
  193.   obPalette = (U.user + 307);
  194.   obSlider = (U.user + 308);
  195.   obSpace = (U.user + 901);
  196.   obString = (U.user + 311);
  197.   obText = (U.user + 304);
  198.   obListview = (U.user + 313);
  199.   obProgress = (U.user + 314);
  200.   obImage = (tgOBJ + 3BH);
  201.   buReturnOk = 000010000H;
  202.   buEscOk = 000020000H;
  203.   buShifted = 000040000H;
  204.   buUnshifted = 000080000H;
  205.   buYResize = 000100000H;
  206.   btText = 0;
  207.   btGetFile = 1;
  208.   btGetDrawer = 2;
  209.   btGetEntry = 3;
  210.   grPropShare = 000000000H;
  211.   grEqualShare = 000000001H;
  212.   grPropSpaces = 000000002H;
  213.   grArray = 000000004H;
  214.   grAlign = 000000008H;
  215.   grCenter = 000000010H;
  216.   grFixHoriz = 000000020H;
  217.   grFixVert = 000000040H;
  218.   grIndep = 000000080H;
  219.   scTotal = (U.user + 1504);
  220.   scVisible = (U.user + 1505);
  221.   slMin = (U.user + 1502);
  222.   slMax = (U.user + 1503);
  223.   stNone = 1;
  224.   stSmall = 2;
  225.   stNormal = 3;
  226.   stBig = 4;
  227.   lvTop = (U.user + 1506);
  228.   lvReadOnly = 000010000H;
  229.   lvSelect = 000020000H;
  230.   lvShowSelected = 000040000H;
  231.   lvNoCursorKeys = 000080000H;
  232.   lvNoNumPadKeys = 000100000H;
  233.   lvFWFont = 000200000H;
  234.   lvNoGap = 000400000H;
  235.   cyMX = 00010000H;
  236.   cyRightLabels = 00020000H;
  237.   fbGrouping = 00000001H;
  238.   fbFraming = 00000002H;
  239.   fbText = 00000004H;
  240.   imBOOPSI = 00010000H;
  241.   stInvisible = 10000H;
  242.   stNoReturnBroadCast = 20000H;
  243.  
  244. VAR
  245.   base : E.LibraryPtr;
  246.  
  247. PROCEDURE OpenProject(app: AppPtr; taglist: ARRAY OF U.TagItem): ProjectPtr;
  248. PROCEDURE CloseProject(project: ProjectPtr);
  249. PROCEDURE FirstOccurance(ch: E.UBYTE; str: E.STRPTR): E.LONG;
  250. PROCEDURE NumOccurances(ch: E.UBYTE; str: E.STRPTR): E.LONG;
  251. PROCEDURE GetErrorString(num: E.UWORD): E.STRPTR;
  252. PROCEDURE CloseWindowSafely(win: I.WindowPtr);
  253. PROCEDURE GetMsg(app: AppPtr): MessagePtr;
  254. PROCEDURE ReplyMsg(msg: MessagePtr);
  255. PROCEDURE Wait(app: AppPtr; otherbits: E.ULONG): E.ULONG;
  256. PROCEDURE SetAttribute(prj: ProjectPtr; id: E.ULONG; attribute: E.ULONG; value: E.ULONG);
  257. PROCEDURE GetAttribute(prj: ProjectPtr; id: E.ULONG; attribute: E.ULONG): E.ULONG;
  258. PROCEDURE LockProject(prj: ProjectPtr);
  259. PROCEDURE UnlockProject(prj: ProjectPtr);
  260. PROCEDURE AutoRequest(app: AppPtr; lockproject: ProjectPtr; requestTRWindowTags: ARRAY OF U.TagItem): E.ULONG;
  261. PROCEDURE EasyRequest(app: AppPtr; bodyfmt: E.STRPTR; gadfmt: E.STRPTR; taglist: ARRAY OF U.TagItem): E.ULONG;
  262. PROCEDURE CreateApp(apptags: ARRAY OF U.TagItem): AppPtr;
  263. PROCEDURE DeleteApp(app: AppPtr);
  264. PROCEDURE GetLastError(app: AppPtr): E.UWORD;
  265. PROCEDURE LockScreen(prj: ProjectPtr): I.ScreenPtr;
  266. PROCEDURE UnlockScreen(scr: I.ScreenPtr);
  267. PROCEDURE ObtainWindow(prj: ProjectPtr): I.WindowPtr;
  268. PROCEDURE ReleaseWindow(win: I.WindowPtr);
  269. PROCEDURE SendMessage(prj: ProjectPtr; id: E.ULONG; msgID: MessagePtr): E.ULONG;
  270. PROCEDURE OpenProjectTags(app: AppPtr; tag..: U.Tag): ProjectPtr;
  271. PROCEDURE AutoRequestTags(app: AppPtr; lockproject: ProjectPtr; tag..: U.Tag): E.ULONG;
  272. PROCEDURE EasyRequestTags(app: AppPtr; bodyfmt: E.STRPTR; gadfmt: E.STRPTR; tag..: U.Tag): E.ULONG;
  273. PROCEDURE CreateAppTags(apptags..: U.Tag): AppPtr;
  274.  
  275. END Triton.
  276.